home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / animals.dir / 00067_EN 92-95.pct.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  1.3 KB  |  38 lines
  1. on mouseDown
  2.   global theArticle, whHead
  3.   set mv to the mouseV
  4.   set mh to the mouseH
  5.   put "35,136,289,183" into line 1 of bgArray
  6.   put "62,231,433,260" into line 2 of bgArray
  7.   put "218,188,603,226" into line 3 of bgArray
  8.   put "304,119,571,148" into line 4 of bgArray
  9.   set whHead to 0
  10.   repeat with n = 1 to 4
  11.     if (mh > item 1 of line n of bgArray) and (mh < item 3 of line n of bgArray) then
  12.       if (mv > item 2 of line n of bgArray) and (mv < item 4 of line n of bgArray) then
  13.         set whHead to n
  14.         spriteBox(43, value(item 1 of line whHead of bgArray), value(item 2 of line whHead of bgArray), value(item 3 of line whHead of bgArray), value(item 4 of line whHead of bgArray))
  15.         updateStage()
  16.       end if
  17.     end if
  18.   end repeat
  19.   clearLists()
  20.   if whHead = 1 then
  21.     set theArticle to "EN060308.asc>Last of the black rhinos lose their horn to survive>0"
  22.     winArticle()
  23.   end if
  24.   if whHead = 2 then
  25.     set theArticle to "EN010806.asc>Animal rights activists turn to IRA tactics>0"
  26.     winArticle()
  27.   end if
  28.   if whHead = 3 then
  29.     set theArticle to "EN010203.asc>Hunt ban ΓÇÿwould hit 33,000 jobsΓÇÖ>0"
  30.     winArticle()
  31.   end if
  32.   if whHead = 4 then
  33.     set theArticle to "EN060404.asc>Have we killed the giant turtle?>0"
  34.     winArticle()
  35.   end if
  36.   setOffStage("43")
  37. end
  38.